home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_126 / suplib / bcmp.asm < prev    next >
Assembly Source File  |  1992-05-06  |  1KB  |  44 lines
  1.  
  2. ;BCMP.ASM
  3. ;
  4. ;   If both source and dest are on longword boundries, and if the byte
  5. ;   count is a multiple of 4, then use longword operations.
  6. ;
  7. ;   if byte count < 16 then just use byte operations
  8. ;
  9. ;   BCMP(p1,p2,n)   return 0=failed, 1=compare ok
  10.  
  11.      xdef  _bcmp
  12.  
  13. _bcmp:
  14.     movem.l 4(A7),A0/A1    ;A0 = ptr1, A1 = ptr2
  15.     move.l    12(A7),D1    ;# bytes
  16.     andi.b    #3,15(A7)    ;# bytes multiple of 4?
  17.     bne    onbyte
  18.     andi.b    #3,7(A7)    ;ptr1 on lwb?
  19.     bne    onbyte
  20.     andi.b    #3,11(A7)    ;ptr2 on lwb?
  21.     bne    onbyte
  22.     lsr.l    #2,D1        ;YES, LONG COMPARE LOOP
  23.     clr.l    D0        ;default return. Also sets Z flag
  24.     bra    dropl
  25. loopl    cmpm.l    (A0)+,(A1)+
  26. dropl    dbne.w    D1,loopl
  27.     bne    end
  28.     sub.l    #$10000,D1
  29.     bpl    loopl
  30.     addq.l    #1,D0        ;return TRUE
  31.     rts
  32.  
  33. onbyte    clr.l    D0        ;default return. Also sets Z flag
  34.     bra    dropb
  35. loopb    cmpm.b    (A0)+,(A1)+    ;BYTE COMPARE
  36. dropb    dbne.w    D1,loopb    ;until count exhausted or compare failed
  37.     bne    end
  38.     sub.l    #$10000,D1    ;for buffers >65535
  39.     bpl    loopb        ;branch to loop because D0.W now is FFFF
  40.     addq.l    #1,D0        ;return TRUE
  41. end    rts
  42.  
  43.  
  44.